105 Y = Y +9: XDRAW ASC(A$) -31 AT X,Y: XDRAW 99: IF LEN(A$) >1 THEN FOR K = 2 TO LEN(A$):X$ = MID$ (A$,K,1): IF X$ < >C$ THEN XDRAW ASC(X$) -31: XDRAW 99: NEXT : RETURN
108 A$ = " " + RIGHT$(A$, LEN(A$) -K): GOTO 105
110 HOME : HGR : POKE -16302,0
120 X = 9:Y = -8:X = 0
130 A$ = "frame-up": POKE 232,0: POKE 233,64: GOSUB 105: POKE 233,80:Y = Y +8:A$ = "High-Speed Presentation Utility<CTRL-M>by Tom Weishaar": GOSUB 105:Y = Y +3
140 A$ = "$29.50 (for Apple II, II+ or IIe)": GOSUB 105:Y = Y +8
150 A$ = "FRAME-UP lets you produce professional<CTRL-M>presentations of your existing Apple hi-res,<CTRL-M>lo-res and text frames. Frame-Up features<CTRL-M>FAST hi-res loading-- Under 3 seconds!": GOSUB 105
160 Y = Y +4:A$ = "UNATTENDED SHOWS are possible with each<CTRL-M>frame pre-arranged and timed to display<CTRL-M>from 1 to 99 seconds. OR keyboard- or<CTRL-M>paddle-control frame advancement just as<CTRL-M>you would with a slide projector!": GOSUB 105
180 Y = Y +4:A$ = "USE FRAME-UP to make copies of Apple presen-<CTRL-M>tations that can be distributed to your<CTRL-M>friends & associates (or sent home to Mom!).": GOSUB 105
210 A$ = " ESC to return to Menu":X = 0:Y = 174: GOSUB 105:A$ = " ESC"
215 HCOLOR= 3: HPLOT 2,191 TO 26,191 TO 26,181 TO 2,181 TO 2,191
230 K = PEEK( -16384):CO = CO +1: IF K < >155 THEN Y = 174: GOSUB 105: FOR I = 1 TO 200: NEXT : IF CO <MAX THEN 230
